Fix last change.

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index c09e3152376889034c6cb699bc50065b2a7ffe20..d8ca2a77b58bd60c9ec18903f241226fecf87641 100644 (file)
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -367,7 +367,8 @@ since it could result in memory overflow and make Emacs crash."
                       (eq system-type 'windows-nt))
                      ((string-match "\\`x-.*gtk" (symbol-name symbol))
                       (or (boundp 'gtk)
-                          (and (display-graphic-p)
+                          (and window-system
+                               (not (eq window-system 'pc))
                                (not (eq system-type 'windows-nt)))))
                      ((string-match "\\`x-" (symbol-name symbol))
                       (fboundp 'x-create-frame))